home *** CD-ROM | disk | FTP | other *** search
/ SGI Freeware 2002 November / SGI Freeware 2002 November - Disc 1.iso / dist / fw_exmh.idb / usr / freeware / lib / exmh-2.5 / scan.tcl.z / scan.tcl
Text File  |  2002-07-08  |  10KB  |  349 lines
  1. # 
  2. # scan.tcl
  3. #
  4. # Folder scanning, with optimizations.
  5. #
  6. # Copyright (c) 1993 Xerox Corporation.
  7. # Use and copying of this software and preparation of derivative works based
  8. # upon this software are permitted. Any distribution of this software or
  9. # derivative works must comply with all applicable United States export
  10. # control laws. This software is made available AS IS, and Xerox Corporation
  11. # makes no warranty about the software, its performance or its conformity to
  12. # any specification.
  13.  
  14. #### Display folder contents
  15.  
  16. proc Scan_Folder {F {adjustDisplay 1}} {
  17.     Exmh_Debug Scan_Folder [time [list ScanFolder $F $adjustDisplay]]
  18. }
  19. proc ScanFolder {F adjustDisplay} {
  20.     global mhProfile flist ftoc exwin exmh
  21.  
  22.     if {[string compare $F $ftoc(folder)] == 0} {
  23.     Exmh_Debug Updating $F
  24.     set update 1    ;# Need to check for new messages.
  25.     set sameF 1    ;# Same folder as before
  26.     ScanAddLineInit
  27.     } else {
  28.     set sameF 0
  29.     set cacheFile $mhProfile(path)/$F/.xmhcache
  30.     if [catch {open $cacheFile} input] {
  31.         # No cache, scan last N messages
  32.         Exmh_Status "Limit scan $F last:$ftoc(scanSize) - Rescan?" warn
  33.         set input  [open "|$mhProfile(scan-proc) [list +$F] \
  34.             last:$ftoc(scanSize) -width $ftoc(scanWidth)"]
  35.         set ftoc(displayDirty) 1
  36.         set update 0
  37.     } else {
  38.         Exmh_Debug "loading .xmhcache"
  39.         set ftoc(displayDirty) 0
  40.         set update 1    ;# Need to check for new messages.
  41.     }
  42.     ScanAddLineReset $F
  43.     ScanAddLines [read $input]
  44.     catch {close $input}
  45.     }
  46.  
  47.     if {$update} {
  48.     # Add new messages to cached information
  49.     # Scan last message (again) plus any new messages
  50.     if {! $sameF} {
  51.         Ftoc_Reset [Widget_TextEnd $exwin(ftext)] {} $F
  52.     }
  53.     set id [Ftoc_MsgNumber [Ftoc_FindMsg {} last]]
  54.     if [catch {
  55.         Exmh_Debug Scanning new messages
  56.         set input [open "|$mhProfile(scan-proc) [list +$F] \
  57.             $id-last -width $ftoc(scanWidth)"]
  58.         set check [gets $input]
  59.         set new [read $input]
  60.         close $input
  61.     } err] {
  62.         # The last message no longer exists
  63.         Exmh_Debug No last msg $id: $err
  64.         } else {
  65.         set id2 [Ftoc_MsgNumberRaw $check]
  66.         if {$id2 == $id} {
  67.         # Last message still matches: add the new lines
  68.         ScanAddLines $new
  69.         set ftoc(displayDirty) 1
  70.         set update 0    ;# OK
  71.         } else {
  72.         Exmh_Debug "My last $id != $id2"
  73.         }
  74.     }
  75.     if {$update} {
  76.         # Something went wrong: rescan
  77.         if {[Ftoc_Changes "Scan Update Failed"] == 0} {
  78.         Exmh_Status "scan +$F last:$ftoc(scanSize)"
  79.         Background_Wait
  80.         set input  [open "|$mhProfile(scan-proc) [list +$F] \
  81.             last:$ftoc(scanSize) -width $ftoc(scanWidth)"]
  82.         set ftoc(displayDirty) 1
  83.         ScanAddLineReset $F
  84.         ScanAddLines [read $input]
  85.         catch {close $input}
  86.         }
  87.     }
  88.     }
  89.     ScanAddLineCleanup $F
  90.     if {! $sameF} {
  91.     Msg_Reset [Widget_TextEnd $exwin(ftext)] $F
  92.     } else {
  93.     Ftoc_Update [Widget_TextEnd $exwin(ftext)] $F
  94.     }
  95.     set ftoc(displayValid) 1
  96.     if {$adjustDisplay} {
  97.     Ftoc_Yview end
  98.     }
  99.     if {$update} {
  100.     Flist_ForgetUnseen $F
  101.     }
  102.     Ftoc_ShowUnseen $F
  103.     return
  104. }
  105. proc Scan_FolderForce {{F ""}} {
  106.     global exmh mhProfile ftoc
  107.     if {$F == ""} {
  108.     set F $exmh(folder)
  109.     }
  110.     set cacheFile $mhProfile(path)/$F/.xmhcache
  111.     if {$F == ""} {
  112.     Exmh_Status "No current folder" red
  113.     } elseif {$F != $exmh(folder)} {
  114.     # If we aren't currently viewing the folder, just delete
  115.     # the cache file and we'll take care of this later
  116.     Exmh_Debug "Clearing $cacheFile"
  117.     file delete $cacheFile
  118.     } elseif {! [Ftoc_Changes Rescan]} {
  119.     Background_Wait
  120.     Label_Folder $F
  121.     Exmh_Status "rescanning $F ..."
  122.     Scan_IO $F [open "|$mhProfile(scan-proc) [list +$F] \
  123.         -width $ftoc(scanWidth)"]
  124.     set ftoc(displayValid) 1
  125.     set ftoc(displayDirty) 1
  126.     Ftoc_Yview end
  127.     Flist_ForgetUnseen $F
  128.     Ftoc_ShowUnseen $F
  129.     Exmh_Status ok
  130.     }
  131. }
  132. proc Scan_FolderUpdate { f } {
  133.     global ftoc
  134.  
  135.     if !$ftoc(displayValid) {
  136.         return                  ;#  don't update pseudo-displays
  137.     }
  138.     Label_Folder $f
  139.     Scan_Folder $f 0
  140. }
  141. proc Scan_Iterate { incout lineVar body } {
  142.     upvar $lineVar line
  143.     foreach line [split $incout \n] {
  144.     if [regexp ^Incorporating $line] {
  145.         continue
  146.     }
  147.     if {[string length $line] > 0} {
  148.         uplevel $body
  149.     }
  150.     }
  151. }
  152.  
  153. proc Scan_Inc {folder incOutput} {
  154.     global exwin ftoc
  155.     # Append output of an Inc to the scan display
  156.     ScanAddLineInit
  157.     Scan_Iterate $incOutput l {
  158.     ScanAddLine $l
  159.     }
  160.     ScanAddLineCleanup $folder
  161.     Ftoc_Update [Widget_TextEnd $exwin(ftext)] $folder
  162.     set ftoc(displayDirty) 1
  163.     if {$ftoc(showNew)} {
  164.     Ftoc_Yview end
  165.     }
  166.     # Don't forget unseen here, just find recently added unseen messages
  167.     Ftoc_ShowUnseen $folder
  168.     Label_Folder $folder
  169. }
  170. proc Scan_IO {folder scanIO } {
  171.     Exmh_Debug Scan_IO [time [list ScanIO $folder $scanIO]]
  172. }
  173. proc ScanIO {folder scanIO } {
  174.     global exmh exwin
  175.  
  176.     ScanAddLineReset $folder
  177.     if [catch {
  178.     ScanAddLines [read $scanIO]
  179.     close $scanIO
  180.     } err] {
  181.     Exmh_Status $err red
  182.     catch {close $scanIO}
  183.     }
  184.     ScanAddLineCleanup $folder
  185.     Msg_Reset [Widget_TextEnd $exwin(ftext)] $folder
  186. }
  187.  
  188. proc ScanAddLineInit {} {
  189.     global exmh exwin
  190.     $exwin(ftext) configure -state normal
  191. }
  192. proc ScanAddLineReset { folder } {
  193.     global exwin ftoc
  194.     if {$ftoc(folder) == $folder} {
  195.     # Rescanning a folder, so save mark state
  196. #    Ftoc_Save $folder
  197.     }
  198.     ScanAddLineInit
  199.     $exwin(ftext) delete 0.0 end
  200.     update idletasks
  201. }
  202. proc ScanAddLine { line } {
  203.     global exwin
  204.     $exwin(ftext) insert end "$line\n"
  205. }
  206. proc ScanAddLines { text } {
  207.     global exwin
  208.     $exwin(ftext) insert end $text
  209. }
  210. proc ScanAddLineCleanup { folder } {
  211.     global exwin flist ftoc
  212.     if {$ftoc(folder) == $folder} {
  213.     # Restore mark state
  214. #    Ftoc_Restore $folder
  215.     }
  216.     set ftoc(folder) $folder
  217.     $exwin(ftext) configure -state disabled
  218. }
  219. proc Scan_ProjectSelection { ids } {
  220.     global ftoc exwin
  221.     set lines {}
  222.     set num 0
  223.     foreach id $ids {
  224.     set L [Ftoc_FindMsg $id]
  225.     if {$L != {}} {
  226.         lappend lines [$exwin(ftext) get $L.0 $L.end]
  227.         incr num
  228.     }
  229.     }
  230.     set ftoc(displayValid) 0    ;# Don't cache this display
  231.     ScanAddLineReset $ftoc(folder)
  232.     foreach line $lines {
  233.     ScanAddLine $line
  234.     }
  235.     ScanAddLineCleanup $ftoc(folder)
  236.     Msg_ClearCurrent
  237.     Msg_Reset $num
  238. }
  239. proc Scan_CacheValid {F} {
  240.     # Maintain a cache of folder listings
  241.     global mhProfile exmh
  242.     set cacheFile $mhProfile(path)/$F/.xmhcache
  243.     if {![file exists $cacheFile] || ![file size $cacheFile]} {
  244.     return 0
  245.     }
  246.     if {[file mtime $mhProfile(path)/$F] >
  247.     [file mtime $cacheFile]} {
  248.     return 0
  249.     }
  250.     return 1
  251. }
  252. proc Scan_CacheUpdate {} {
  253.     global exmh mhProfile exwin ftoc
  254.     set folder $exmh(folder)
  255.     if {$folder == {}} {
  256.     return
  257.     }
  258.     if !$ftoc(displayDirty) {
  259.     return
  260.     }
  261.     set cacheFile $mhProfile(path)/$folder/.xmhcache
  262.  
  263. #
  264. # Display is invalid but changes (deletes) still must be reflected in cache. 
  265. # A full rescan is the penalty you have to pay for deleting messages inside 
  266. # this thing.
  267. #
  268.     if !$ftoc(displayValid) {
  269.     set curLine [Ftoc_ClearCurrent]            ;# Clear +
  270.         if [file writable $cacheFile] {
  271.             set scancmd "exec $mhProfile(scan-proc) [list +$folder] \
  272.             -width $ftoc(scanWidth) > [list $cacheFile]"
  273.             if [catch $scancmd err] {
  274.                 Exmh_Status "failed to rescan folder $folder: $err" warn
  275.             }
  276.         }
  277.     Ftoc_Change [Ftoc_MsgNumber $curLine] $curLine    ;# Restore it
  278.     } elseif [catch {
  279.     set cacheIO [open $cacheFile w]
  280.     set curLine [Ftoc_ClearCurrent]            ;# Clear +
  281.     set display [$exwin(ftext) get 1.0 "end -1 char"]
  282.     Ftoc_Change [Ftoc_MsgNumber $curLine] $curLine    ;# Restore it
  283.     puts $cacheIO $display nonewline
  284.     close $cacheIO
  285.     set ftoc(displayDirty) 0
  286.     } err] {
  287.     Exmh_Debug Scan_CacheUpdate error $err
  288.     catch {close $cacheIO}
  289.     }
  290. }
  291.  
  292. # Move scan lines to the scan cache for another folder
  293. proc Scan_Move { folder scanlinesR new } {
  294.     global mhProfile
  295.     set cacheFile $mhProfile(path)/$folder/.xmhcache
  296.     if ![file writable $cacheFile] {
  297.     Exmh_Debug Scan_Move $folder scan cache not writable
  298.     return
  299.     }
  300.     # Reverse engineer the scan format
  301.     if ![regexp {( *)([0-9]+)} [lindex $scanlinesR 0] prefix foo2 number] {
  302.     Exmh_Debug Scan_Move cannot handle scan format
  303.     return
  304.     }
  305.     set len [string length $prefix]
  306.     set fmt [format "%%%dd%%s" $len]
  307.     set cacheIO [open $cacheFile a]
  308.     for {set i [expr [llength $scanlinesR]-1]} {$i >= 0} {incr i -1} {
  309.     set line [lindex $scanlinesR $i]
  310.     if [regsub {( *[0-9]+)(\+)} $line {\1 } newline] {
  311.         puts $cacheIO [format $fmt $new [string range $newline $len end]] \
  312.         nonewline
  313.     } else {
  314.         puts $cacheIO [format $fmt $new [string range $line $len end]] \
  315.         nonewline
  316.     }
  317.     incr new
  318.     }
  319.     close $cacheIO
  320. }
  321. proc Scan_AllFolders { {force 0} } {
  322.     global flist mhProfile ftoc wish
  323.     if [catch {open [Env_Tmp]/scancmds w} out] {
  324.     Exmh_Status "Scan_AllFolders $out"
  325.     return
  326.     }
  327.     set ctx [Env_Tmp]/scanctx
  328.     puts $out "wm withdraw ."
  329.     set myname [winfo name .]
  330.     puts $out "catch \{ exec touch $ctx.\[pid\] \}"
  331.     puts $out "set env(MHCONTEXT) $ctx.\[pid\]"
  332.     foreach f $flist(allfolders) {
  333.     if {$force || ! [Scan_CacheValid $f]} {
  334.         puts $out "catch \{send $myname \{Exmh_Status \"scan +$f\"\}\}"
  335.         puts $out "catch {
  336.         set out \[open $mhProfile(path)/$f/.xmhcache w $mhProfile(msg-protect)\]
  337.         exec $mhProfile(scan-proc) +$f -width $ftoc(scanWidth) -noheader >@\$out
  338.         close \$out
  339.         }"
  340.     }
  341.     }
  342.     puts $out "catch \{send $myname \{Exmh_Status \"scans completed\"\}\}"
  343.     puts $out "exec rm $ctx.\[pid\]"
  344.     puts $out exit
  345.     close $out
  346.     Exmh_Status "wish -f [Env_Tmp]/scancmds &" blue
  347.     exec $wish -f [Env_Tmp]/scancmds &
  348. }
  349.